home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1999-09-18 | 9.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: ';----------------------------------------------------------------,'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|00000010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000040| 2d 2c 00 3b 20 56 65 72 | 79 20 42 61 73 69 63 20 |-,.; Ver|y Basic |
|00000050| 54 43 50 20 43 6c 69 65 | 6e 74 20 45 78 61 6d 70 |TCP Clie|nt Examp|
|00000060| 6c 65 20 20 28 56 65 72 | 79 20 42 61 72 65 20 42 |le (Ver|y Bare B|
|00000070| 6f 6e 65 73 20 54 65 6c | 6e 65 74 20 43 6c 69 65 |ones Tel|net Clie|
|00000080| 6e 74 29 20 3b 00 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nt) ;.;-|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 3b | 00 3b 20 54 68 69 73 20 |-------;|.; This |
|000000d0| 63 6f 64 65 20 63 61 6e | 20 66 6f 72 6d 20 74 68 |code can| form th|
|000000e0| 65 20 22 62 61 72 65 20 | 62 6f 6e 65 73 22 20 74 |e "bare |bones" t|
|000000f0| 6f 20 61 6c 6d 6f 73 74 | 20 61 6e 79 20 54 43 50 |o almost| any TCP|
|00000100| 20 43 6c 69 65 6e 74 2e | 20 20 3b 00 3b 20 73 75 | Client.| ;.; su|
|00000110| 63 68 20 63 6c 69 65 6e | 74 73 20 63 6f 75 6c 64 |ch clien|ts could|
|00000120| 20 69 6e 63 6c 75 64 65 | 20 49 52 43 2c 20 54 65 | include| IRC, Te|
|00000130| 6c 6e 65 74 2c 20 50 4f | 50 33 2c 20 73 6d 74 70 |lnet, PO|P3, smtp|
|00000140| 2c 20 6e 65 77 73 20 65 | 74 63 2e 20 20 3b 00 3b |, news e|tc. ;.;|
|00000150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000190| 00 00 00 80 03 20 76 65 | 72 73 69 6f 6e 24 3d 22 |..... ve|rsion$="|
|000001a0| 24 56 45 52 3a 20 49 50 | 53 63 61 6e 6e 65 72 20 |$VER: IP|Scanner |
|000001b0| 76 30 2e 32 31 20 3f 20 | 31 38 2e 53 65 70 74 20 |v0.21 ? |18.Sept |
|000001c0| 31 39 39 39 20 62 79 20 | 46 72 65 65 4a 61 63 6b |1999 by |FreeJack|
|000001d0| 20 5b 46 72 65 65 4a 61 | 63 6b 40 46 72 65 65 4a | [FreeJa|ck@FreeJ|
|000001e0| 61 63 6b 2e 64 65 5d 20 | 28 31 38 2e 30 39 2e 39 |ack.de] |(18.09.9|
|000001f0| 39 29 22 00 00 00 00 80 | c3 00 cf 02 20 30 00 80 |9)".....|.... 0..|
|00000200| 2c 20 cf 01 20 30 00 6c | 66 24 3d dc 86 28 31 30 |, .. 0.l|f$=..(10|
|00000210| 29 00 63 66 24 3d dc 86 | 28 31 33 29 2b dc 86 28 |).cf$=..|(13)+..(|
|00000220| 31 30 29 00 6c 6e 24 3d | dc 86 28 31 30 29 2b dc |10).ln$=|..(10)+.|
|00000230| 86 28 30 29 00 00 4c 79 | 6e 65 24 3d b5 02 28 31 |.(0)..Ly|ne$=..(1|
|00000240| 29 00 00 00 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |)...;---|--------|
|00000250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000260| 2d 2d 2d 20 46 75 6e 63 | 74 69 6f 6e 20 50 61 72 |--- Func|tion Par|
|00000270| 74 20 53 74 61 72 74 20 | 2d 2d 2d 2d 2d 2d 2d 2d |t Start |--------|
|00000280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000290| 2d 2d 2d 2d 00 00 2e 45 | 63 68 6f 00 80 08 20 45 |----...E|cho... E|
|000002a0| 63 68 6f 7b 54 65 78 74 | 24 7d 00 20 20 20 80 03 |cho{Text|$}. ..|
|000002b0| 20 4e 54 65 78 74 24 3d | 54 65 78 74 24 2b dc 86 | NText$=|Text$+..|
|000002c0| 28 31 30 29 2b dc 86 28 | 30 29 00 20 20 20 80 03 |(10)+..(|0). ..|
|000002d0| 20 76 6f 69 64 3d fc 95 | 28 26 4e 54 65 78 74 24 | void=..|(&NText$|
|000002e0| 29 00 80 02 20 80 08 00 | 00 2e 4d 61 6b 65 56 65 |)... ...|..MakeVe|
|000002f0| 72 73 00 80 09 2e 73 20 | 4d 61 6b 65 56 65 72 73 |rs....s |MakeVers|
|00000300| 7b 61 24 7d 00 20 20 20 | 62 24 3d dc 91 28 61 24 |{a$}. |b$=..(a$|
|00000310| 2c 36 29 00 20 20 20 80 | 09 20 80 07 20 62 24 00 |,6). .|. .. b$.|
|00000320| 80 02 20 80 09 00 00 76 | 65 72 73 24 3d 4d 61 6b |.. ....v|ers$=Mak|
|00000330| 65 56 65 72 73 7b 76 65 | 72 73 69 6f 6e 24 7d 00 |eVers{ve|rsion$}.|
|00000340| 00 80 0b 20 4c 79 6e 65 | 24 3d 22 3f 22 00 20 20 |... Lyne|$="?". |
|00000350| 20 45 63 68 6f 7b 76 65 | 72 73 24 7d 00 80 22 00 | Echo{ve|rs$}..".|
|00000360| 20 20 20 68 6f 73 74 24 | 3d 4c 79 6e 65 24 00 80 | host$|=Lyne$..|
|00000370| c0 00 00 3b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...;----|--------|
|00000380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000390| 2d 2d 2d 20 46 75 6e 63 | 74 69 6f 6e 20 50 61 72 |--- Func|tion Par|
|000003a0| 74 20 45 6e 64 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |t End --|--------|
|000003b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003c0| 2d 2d 2d 00 00 00 00 00 | 3b 2d 2d 2d 2d 2d 2d 2d |---.....|;-------|
|000003d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000400| 2d 2d 2d 2d 00 3b 20 53 | 74 61 6e 64 61 72 64 20 |----.; S|tandard |
|00000410| 42 6c 69 74 7a 20 54 43 | 50 20 46 75 6e 63 74 69 |Blitz TC|P Functi|
|00000420| 6f 6e 73 20 56 31 2e 38 | 20 62 79 20 50 61 75 6c |ons V1.8| by Paul|
|00000430| 20 42 75 72 6b 65 79 20 | 28 63 29 31 39 39 37 2d | Burkey |(c)1997-|
|00000440| 31 39 39 38 00 3b 20 43 | 6f 6d 70 69 6c 65 64 20 |1998.; C|ompiled |
|00000450| 77 69 74 68 20 68 65 6c | 70 20 66 72 6f 6d 20 45 |with hel|p from E|
|00000460| 72 63 6f 6c 65 20 53 70 | 69 74 65 72 69 20 61 6e |rcole Sp|iteri an|
|00000470| 64 20 41 6e 74 6f 6e 20 | 52 65 69 6e 61 75 65 72 |d Anton |Reinauer|
|00000480| 00 3b 20 59 6f 75 20 2a | 6d 75 73 74 2a 20 68 61 |.; You *|must* ha|
|00000490| 76 65 20 74 68 65 20 62 | 73 64 73 6f 63 6b 65 74 |ve the b|sdsocket|
|000004a0| 2e 6c 69 62 72 61 72 79 | 20 73 65 74 75 70 20 69 |.library| setup i|
|000004b0| 6e 20 42 6c 69 74 7a 21 | 21 00 3b 20 43 6f 6e 74 |n Blitz!|!.; Cont|
|000004c0| 61 63 74 20 6d 65 20 61 | 74 20 62 75 72 6b 65 79 |act me a|t burkey|
|000004d0| 40 62 69 67 66 6f 6f 74 | 2e 63 6f 6d 00 3b 2d 2d |@bigfoot|.com.;--|
|000004e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 00 3b 48 69 73 74 6f |--------|-.;Histo|
|00000520| 72 79 00 3b 2d 2d 2d 2d | 2d 2d 2d 00 3b 3c 31 36 |ry.;----|---.;<16|
|00000530| 2e 32 2e 39 37 3e 20 56 | 65 72 73 69 6f 6e 20 31 |.2.97> V|ersion 1|
|00000540| 2e 38 00 3b 41 64 64 65 | 64 20 4e 4c 50 72 69 6e |.8.;Adde|d NLPrin|
|00000550| 74 54 43 50 7b 7d 20 66 | 6f 72 20 65 61 73 79 20 |tTCP{} f|or easy |
|00000560| 73 65 6e 64 20 73 74 72 | 69 6e 67 20 77 69 74 68 |send str|ing with|
|00000570| 20 63 61 72 72 61 67 65 | 20 72 65 74 75 72 6e 20 | carrage| return |
|00000580| 61 6e 64 20 6e 65 77 6c | 69 6e 65 2e 00 3b 52 65 |and newl|ine..;Re|
|00000590| 6d 6f 76 65 64 20 6e 65 | 65 64 20 66 6f 72 20 33 |moved ne|ed for 3|
|000005a0| 72 64 20 50 61 72 74 79 | 20 6c 69 62 73 20 28 6f |rd Party| libs (o|
|000005b0| 6e 6c 79 20 62 73 64 73 | 6f 63 6b 65 74 2e 6c 69 |nly bsds|ocket.li|
|000005c0| 62 72 61 72 79 20 6e 65 | 65 64 65 64 29 00 3b 00 |brary ne|eded).;.|
|000005d0| 3b 3c 32 34 2e 31 32 2e | 39 37 3e 20 56 65 72 73 |;<24.12.|97> Vers|
|000005e0| 69 6f 6e 20 31 2e 37 00 | 3b 52 65 61 64 54 43 50 |ion 1.7.|;ReadTCP|
|000005f0| 7b 7d 20 55 70 64 61 74 | 65 64 20 77 69 74 68 20 |{} Updat|ed with |
|00000600| 65 78 74 72 61 20 73 61 | 66 65 74 79 20 61 6e 64 |extra sa|fety and|
|00000610| 20 53 70 65 65 64 00 3b | 00 3b 3c 31 38 2e 39 2e | Speed.;|.;<18.9.|
|00000620| 39 37 3e 20 56 65 72 73 | 69 6f 6e 20 31 2e 36 00 |97> Vers|ion 1.6.|
|00000630| 3b 41 64 64 65 64 20 50 | 72 69 6e 74 54 43 50 7b |;Added P|rintTCP{|
|00000640| 7d 20 20 66 6f 72 20 61 | 6e 20 65 61 73 79 20 22 |} for a|n easy "|
|00000650| 73 65 6e 64 20 73 74 72 | 69 6e 67 22 20 63 6f 6d |send str|ing" com|
|00000660| 6d 61 6e 64 2e 00 3b 41 | 64 64 65 64 20 4e 50 72 |mand..;A|dded NPr|
|00000670| 69 6e 74 54 43 50 7b 7d | 20 66 6f 72 20 65 61 73 |intTCP{}| for eas|
|00000680| 79 20 73 65 6e 64 20 73 | 74 72 69 6e 67 20 77 69 |y send s|tring wi|
|00000690| 74 68 20 63 61 72 72 61 | 67 65 20 72 65 74 75 72 |th carra|ge retur|
|000006a0| 6e 00 3b 43 68 65 63 6b | 54 43 50 7b 7d 20 6d 65 |n.;Check|TCP{} me|
|000006b0| 72 67 65 64 20 69 6e 74 | 6f 20 74 68 65 20 43 6f |rged int|o the Co|
|000006c0| 6e 6e 65 63 74 54 43 50 | 7b 7d 20 66 75 6e 63 74 |nnectTCP|{} funct|
|000006d0| 69 6f 6e 2e 00 3b 00 3b | 2d 2d 2d 2d 2d 2d 2d 2d |ion..;.;|--------|
|000006e0| 2d 2d 2d 2d 2d 2d 2d 00 | 3b 20 46 75 6e 63 74 69 |-------.|; Functi|
|000006f0| 6f 6e 20 4c 69 73 74 00 | 3b 2d 2d 2d 2d 2d 2d 2d |on List.|;-------|
|00000700| 2d 2d 2d 2d 2d 2d 2d 2d | 00 3b 00 3b 52 65 61 64 |--------|.;.;Read|
|00000710| 54 43 50 7b 7d 20 20 20 | 20 20 20 20 20 20 20 20 |TCP{} | |
|00000720| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 53 69 | | ; Si|
|00000730| 6d 69 6c 61 72 20 74 6f | 20 45 64 69 74 24 28 29 |milar to| Edit$()|
|00000740| 20 2d 20 72 65 63 69 76 | 65 73 20 64 61 74 61 20 | - reciv|es data |
|00000750| 76 69 61 20 54 43 50 20 | 63 6f 6e 6e 65 63 74 69 |via TCP |connecti|
|00000760| 6f 6e 00 3b 52 65 61 64 | 4d 65 6d 54 43 50 7b 52 |on.;Read|MemTCP{R|
|00000770| 65 61 64 41 64 64 2e 6c | 2c 4d 61 78 53 69 7a 65 |eadAdd.l|,MaxSize|
|00000780| 2e 6c 7d 20 3b 20 53 69 | 6d 69 6c 61 72 20 74 6f |.l} ; Si|milar to|
|00000790| 20 52 65 61 6d 4d 65 6d | 20 2d 20 72 65 63 69 76 | ReamMem| - reciv|
|000007a0| 65 73 20 64 61 74 61 20 | 76 69 61 20 54 43 50 20 |es data |via TCP |
|000007b0| 63 6f 6e 6e 65 63 74 69 | 6f 6e 00 3b 57 72 69 74 |connecti|on.;Writ|
|000007c0| 65 54 43 50 7b 61 64 2e | 6c 2c 73 69 7a 65 2e 77 |eTCP{ad.|l,size.w|
|000007d0| 7d 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 53 69 |} | ; Si|
|000007e0| 6d 69 6c 61 72 20 74 6f | 20 57 72 69 74 65 4d 65 |milar to| WriteMe|
|000007f0| 6d 20 2d 20 73 65 6e 64 | 73 20 64 61 74 61 20 76 |m - send|s data v|
|00000800| 69 61 20 54 43 50 20 63 | 6f 6e 6e 65 63 74 69 6f |ia TCP c|onnectio|
|00000810| 6e 00 3b 43 6f 6e 6e 65 | 63 74 54 43 50 7b 68 6f |n.;Conne|ctTCP{ho|
|00000820| 73 74 24 2c 70 6f 72 74 | 2e 77 7d 20 20 20 20 20 |st$,port|.w} |
|00000830| 20 20 20 3b 20 43 6f 6e | 6e 65 63 74 20 74 6f 20 | ; Con|nect to |
|00000840| 61 20 72 65 6d 6f 74 65 | 20 6d 61 63 68 69 6e 65 |a remote| machine|
|00000850| 20 28 46 75 6c 6c 20 65 | 72 72 6f 72 20 63 68 65 | (Full e|rror che|
|00000860| 63 6b 69 6e 67 29 00 3b | 50 72 69 6e 74 54 43 50 |cking).;|PrintTCP|
|00000870| 7b 74 65 78 74 24 7d 20 | 20 20 20 20 20 20 20 20 |{text$} | |
|00000880| 20 20 20 20 20 20 20 20 | 3b 20 53 69 6d 69 6c 61 | |; Simila|
|00000890| 72 20 74 6f 20 50 72 69 | 6e 74 20 2d 20 73 65 6e |r to Pri|nt - sen|
|000008a0| 64 73 20 64 61 74 61 20 | 76 69 61 20 54 43 50 20 |ds data |via TCP |
|000008b0| 63 6f 6e 6e 65 63 74 69 | 6f 6e 00 3b 4e 50 72 69 |connecti|on.;NPri|
|000008c0| 6e 74 54 43 50 7b 74 65 | 78 74 24 7d 20 20 20 20 |ntTCP{te|xt$} |
|000008d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 53 69 | | ; Si|
|000008e0| 6d 69 6c 61 72 20 74 6f | 20 4e 50 72 69 6e 74 20 |milar to| NPrint |
|000008f0| 2d 20 73 65 6e 64 73 20 | 64 61 74 61 20 76 69 61 |- sends |data via|
|00000900| 20 54 43 50 20 63 6f 6e | 6e 65 63 74 69 6f 6e 00 | TCP con|nection.|
|00000910| 3b 4e 4c 50 72 69 6e 74 | 54 43 50 7b 74 65 78 74 |;NLPrint|TCP{text|
|00000920| 24 7d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |$} | |
|00000930| 20 3b 20 53 69 6d 69 6c | 61 72 20 74 6f 20 50 72 | ; Simil|ar to Pr|
|00000940| 69 6e 74 2b 43 52 2b 4c | 46 20 2d 20 73 65 6e 64 |int+CR+L|F - send|
|00000950| 73 20 64 61 74 61 20 76 | 69 61 20 54 43 50 20 63 |s data v|ia TCP c|
|00000960| 6f 6e 6e 65 63 74 69 6f | 6e 00 3b 43 6c 6f 73 65 |onnectio|n.;Close|
|00000970| 54 43 50 7b 7d 20 20 20 | 20 20 20 20 20 20 20 20 |TCP{} | |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 43 6c 6f | | ; Clo|
|00000990| 73 65 73 20 54 43 50 20 | 43 6f 6e 6e 65 63 74 69 |ses TCP |Connecti|
|000009a0| 6f 6e 00 00 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |on..;---|--------|
|000009b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009c0| 2d 2d 2d 2d 2d 2d 00 3b | 20 54 43 50 20 6c 69 62 |------.;| TCP lib|
|000009d0| 72 61 72 79 20 56 61 72 | 69 61 62 6c 65 73 2f 43 |rary Var|iables/C|
|000009e0| 6f 6e 73 74 61 6e 74 73 | 00 3b 2d 2d 2d 2d 2d 2d |onstants|.;------|
|000009f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 00 00 23 54 43 |--------|---..#TC|
|00000a10| 50 42 75 66 6c 65 6e 3d | 24 32 30 34 38 20 20 20 |PBuflen=|$2048 |
|00000a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 4d 61 | | ;Ma|
|00000a30| 78 69 6d 75 6d 20 64 61 | 74 61 20 73 69 7a 65 20 |ximum da|ta size |
|00000a40| 74 6f 20 72 65 61 64 20 | 61 74 20 61 6e 79 20 74 |to read |at any t|
|00000a50| 69 6d 65 00 54 43 50 6d | 65 6d 2e 6c 3d a6 08 28 |ime.TCPm|em.l=..(|
|00000a60| 23 54 43 50 42 75 66 6c | 65 6e 2c 30 29 20 3b 41 |#TCPBufl|en,0) ;A|
|00000a70| 6c 6c 6f 63 61 74 65 20 | 74 68 65 20 74 65 6d 70 |llocate |the temp|
|00000a80| 20 62 75 66 66 65 72 20 | 75 73 65 64 20 66 6f 72 | buffer |used for|
|00000a90| 20 61 6c 6c 20 54 43 50 | 20 72 65 61 64 73 00 23 | all TCP| reads.#|
|00000aa0| 46 49 4f 4e 52 45 41 44 | 3d 24 34 30 30 34 36 36 |FIONREAD|=$400466|
|00000ab0| 37 66 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |7f | ;|
|00000ac0| 46 49 4f 4e 52 45 41 44 | 20 72 65 71 75 65 73 74 |FIONREAD| request|
|00000ad0| 00 00 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..;-----|--------|
|00000ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000af0| 2d 2d 2d 2d 00 3b 20 53 | 74 61 6e 64 61 72 64 20 |----.; S|tandard |
|00000b00| 54 43 50 20 6c 69 62 72 | 61 72 79 20 73 74 72 75 |TCP libr|ary stru|
|00000b10| 63 74 75 72 65 73 00 3b | 2d 2d 2d 2d 2d 2d 2d 2d |ctures.;|--------|
|00000b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 00 00 80 01 2e 6c 69 |--------|-.....li|
|00000b40| 73 74 00 20 20 2a 49 74 | 65 6d 41 2e 62 00 20 20 |st. *It|emA.b. |
|00000b50| 2a 49 74 65 6d 42 2e 62 | 00 80 02 20 80 01 00 80 |*ItemB.b|... ....|
|00000b60| 01 2e 69 6e 61 64 64 72 | 00 20 20 73 5f 61 64 64 |..inaddr|. s_add|
|00000b70| 72 2e 6c 00 80 02 20 80 | 01 00 80 01 2e 73 6f 63 |r.l... .|.....soc|
|00000b80| 6b 61 64 64 72 69 6e 00 | 20 20 73 69 6e 5f 6c 65 |kaddrin.| sin_le|
|00000b90| 6e 2e 62 00 20 20 73 69 | 6e 5f 66 61 6d 69 6c 79 |n.b. si|n_family|
|00000ba0| 2e 62 00 20 20 73 69 6e | 5f 70 6f 72 74 2e 77 00 |.b. sin|_port.w.|
|00000bb0| 20 20 73 69 6e 5f 61 64 | 64 72 2e 69 6e 61 64 64 | sin_ad|dr.inadd|
|00000bc0| 72 00 20 20 73 69 6e 5f | 7a 65 72 6f 2e 62 5b 38 |r. sin_|zero.b[8|
|00000bd0| 5d 00 80 02 20 80 01 00 | 80 01 2e 68 6f 73 74 65 |]... ...|...hoste|
|00000be0| 6e 74 00 20 20 2a 68 5f | 6e 61 6d 65 2e 62 00 20 |nt. *h_|name.b. |
|00000bf0| 20 2a 68 5f 61 6c 69 61 | 73 65 73 2e 6c 69 73 74 | *h_alia|ses.list|
|00000c00| 00 20 20 68 5f 61 64 64 | 72 74 79 70 65 2e 6c 00 |. h_add|rtype.l.|
|00000c10| 20 20 68 5f 6c 65 6e 67 | 68 74 2e 6c 00 20 20 2a | h_leng|ht.l. *|
|00000c20| 68 5f 61 64 64 72 5f 6c | 69 73 74 2e 6c 69 73 74 |h_addr_l|ist.list|
|00000c30| 00 80 02 20 80 01 00 00 | 3b 2d 2d 2d 2d 2d 2d 2d |... ....|;-------|
|00000c40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 00 3b 20 53 74 61 |--------|--.; Sta|
|00000c60| 6e 64 61 72 64 20 54 43 | 50 20 42 6c 69 74 7a 20 |ndard TC|P Blitz |
|00000c70| 46 75 6e 63 74 69 6f 6e | 73 00 3b 2d 2d 2d 2d 2d |Function|s.;-----|
|00000c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 00 00 2e 52 |--------|----...R|
|00000ca0| 65 61 64 54 43 50 00 80 | 09 20 2e 73 20 52 65 61 |eadTCP..|. .s Rea|
|00000cb0| 64 54 43 50 7b 7d 00 20 | 20 80 15 20 73 6f 63 6b |dTCP{}. | .. sock|
|00000cc0| 2e 6c 2c 54 43 50 6d 65 | 6d 2e 6c 00 20 20 3b 00 |.l,TCPme|m.l. ;.|
|00000cd0| 20 20 3b 20 54 68 69 73 | 20 46 75 6e 63 74 69 6f | ; This| Functio|
|00000ce0| 6e 20 72 65 61 64 73 20 | 64 61 74 61 20 66 72 6f |n reads |data fro|
|00000cf0| 6d 20 74 68 65 20 73 65 | 72 76 65 72 20 74 68 65 |m the se|rver the|
|00000d00| 20 72 65 73 75 6c 74 20 | 69 73 20 70 61 73 73 65 | result |is passe|
|00000d10| 64 20 62 61 63 6b 20 69 | 6e 20 61 00 20 20 3b 20 |d back i|n a. ; |
|00000d20| 73 74 72 69 6e 67 2e 20 | 49 66 20 74 68 65 72 65 |string. |If there|
|00000d30| 20 69 73 20 6e 6f 20 6d | 65 73 73 61 67 65 73 20 | is no m|essages |
|00000d40| 74 68 65 6e 20 69 74 20 | 77 69 6c 6c 20 72 65 74 |then it |will ret|
|00000d50| 75 72 6e 20 61 6e 20 65 | 6d 70 74 79 20 73 74 72 |urn an e|mpty str|
|00000d60| 69 6e 67 20 3d 22 22 00 | 20 20 3b 00 20 20 73 6f |ing ="".| ;. so|
|00000d70| 63 6b 72 65 61 64 2e 6c | 3d 30 20 20 20 20 20 20 |ckread.l|=0 |
|00000d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d90| 20 20 20 20 20 20 20 20 | 20 20 3b 43 6c 65 61 72 | | ;Clear|
|00000da0| 20 52 65 61 64 6d 61 73 | 6b 00 20 20 73 6f 63 6b | Readmas|k. sock|
|00000db0| 72 65 61 64 2e 6c 20 80 | ce 20 73 6f 63 6b 2e 6c |read.l .|. sock.l|
|00000dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000dd0| 20 20 20 20 3b 53 65 74 | 20 52 65 61 64 6d 61 73 | ;Set| Readmas|
|00000de0| 6b 20 6f 6e 20 6f 75 72 | 20 73 6f 63 6b 65 74 00 |k on our| socket.|
|00000df0| 20 20 65 2e 6c 3d ec 8f | 28 73 6f 63 6b 2e 6c 2c | e.l=..|(sock.l,|
|00000e00| 23 46 49 4f 4e 52 45 41 | 44 2c 54 43 50 6d 65 6d |#FIONREA|D,TCPmem|
|00000e10| 2e 6c 29 20 3b 48 6f 77 | 20 6d 75 63 68 20 64 61 |.l) ;How| much da|
|00000e20| 74 61 20 69 73 20 74 68 | 65 72 65 3f 00 20 20 66 |ta is th|ere?. f|
|00000e30| 2e 6c 3d da 02 2e 6c 28 | 54 43 50 6d 65 6d 2e 6c |.l=...l(|TCPmem.l|
|00000e40| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |) | |
|00000e50| 20 20 20 20 20 20 20 20 | 20 3b 50 6c 61 63 65 20 | | ;Place |
|00000e60| 76 61 6c 75 65 20 69 6e | 20 66 00 20 20 80 0b 20 |value in| f. .. |
|00000e70| 66 3e 30 00 20 20 20 20 | 80 0b 20 66 3e 23 54 43 |f>0. |.. f>#TC|
|00000e80| 50 42 75 66 6c 65 6e 20 | 80 21 20 66 3d 23 54 43 |PBuflen |.! f=#TC|
|00000e90| 50 42 75 66 6c 65 6e 20 | 20 20 20 20 20 20 20 20 |PBuflen | |
|00000ea0| 3b 44 6f 6e 27 74 20 72 | 65 61 64 20 6d 6f 72 65 |;Don't r|ead more|
|00000eb0| 20 74 68 61 6e 20 23 54 | 43 50 42 75 66 6c 65 6e | than #T|CPBuflen|
|00000ec0| 00 20 20 20 20 63 3d ec | 89 28 73 6f 63 6b 2e 6c |. c=.|.(sock.l|
|00000ed0| 2c 54 43 50 6d 65 6d 2e | 6c 2c 66 2c 30 29 20 20 |,TCPmem.|l,f,0) |
|00000ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 52 65 61 | | ;Rea|
|00000ef0| 64 20 61 6c 6c 20 44 61 | 74 61 00 20 20 20 20 63 |d all Da|ta. c|
|00000f00| 24 3d dc 88 28 22 20 22 | 2c 66 29 20 20 20 20 20 |$=..(" "|,f) |
|00000f10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f20| 20 20 20 20 3b 52 65 73 | 65 72 76 65 20 53 74 72 | ;Res|erve Str|
|00000f30| 69 6e 67 00 20 20 20 20 | fe db 20 54 43 50 6d 65 |ing. |.. TCPme|
|00000f40| 6d 2e 6c 2c 26 63 24 2c | 66 20 20 20 20 20 20 20 |m.l,&c$,|f |
|00000f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 43 6f 70 | | ;Cop|
|00000f60| 79 20 44 61 74 61 20 74 | 6f 20 73 74 72 69 6e 67 |y Data t|o string|
|00000f70| 00 20 20 20 20 80 09 20 | 80 07 20 63 24 00 20 20 |. .. |.. c$. |
|00000f80| 80 22 00 20 20 20 20 80 | 09 20 80 07 20 22 22 00 |.". .|. .. "".|
|00000f90| 20 20 80 c0 00 80 02 20 | 80 09 00 00 00 3b 2d 2d | ..... |.....;--|
|00000fa0| 2d 2d 00 3b 57 41 52 4e | 49 4e 47 3a 20 54 68 69 |--.;WARN|ING: Thi|
|00000fb0| 73 20 69 73 20 61 20 27 | 72 6f 75 67 68 27 20 65 |s is a '|rough' e|
|00000fc0| 78 70 65 72 69 6d 65 6e | 74 20 66 75 6e 63 74 69 |xperimen|t functi|
|00000fd0| 6f 6e 2e 00 3b 46 75 6e | 63 74 69 6f 6e 20 77 69 |on..;Fun|ction wi|
|00000fe0| 6c 6c 20 70 72 6f 62 61 | 62 6c 79 20 63 68 61 6e |ll proba|bly chan|
|00000ff0| 67 65 20 6e 65 78 74 20 | 75 70 64 61 74 65 2e 00 |ge next |update..|
|00001000| 3b 2d 2d 2d 2d 00 00 2e | 52 65 61 64 4d 65 6d 54 |;----...|ReadMemT|
|00001010| 43 50 00 80 09 20 2e 6c | 20 52 65 61 64 4d 65 6d |CP... .l| ReadMem|
|00001020| 54 43 50 7b 52 65 61 64 | 41 64 64 2e 6c 2c 4d 61 |TCP{Read|Add.l,Ma|
|00001030| 78 53 69 7a 65 2e 6c 7d | 00 20 20 80 15 20 73 6f |xSize.l}|. .. so|
|00001040| 63 6b 2e 6c 2c 54 43 50 | 6d 65 6d 2e 6c 00 20 20 |ck.l,TCP|mem.l. |
|00001050| 3b 00 20 20 3b 20 52 65 | 61 64 20 69 6e 74 6f 20 |;. ; Re|ad into |
|00001060| 6d 65 6d 6f 72 79 20 6c | 6f 63 61 74 69 6f 6e 20 |memory l|ocation |
|00001070| 27 52 65 61 64 41 64 64 | 2e 6c 27 20 75 70 20 74 |'ReadAdd|.l' up t|
|00001080| 6f 20 61 20 6d 61 78 69 | 6d 75 6d 20 6f 66 20 27 |o a maxi|mum of '|
|00001090| 4d 61 78 53 69 7a 65 2e | 6c 27 00 20 20 3b 20 55 |MaxSize.|l'. ; U|
|000010a0| 73 65 64 20 66 6f 72 20 | 72 65 61 64 69 6e 67 20 |sed for |reading |
|000010b0| 6c 6f 6e 67 20 62 69 6e | 61 72 79 20 66 69 6c 65 |long bin|ary file|
|000010c0| 73 20 65 67 2c 20 57 57 | 57 20 66 69 6c 65 73 20 |s eg, WW|W files |
|000010d0| 6f 72 20 46 54 50 20 66 | 69 6c 65 73 2e 00 20 20 |or FTP f|iles.. |
|000010e0| 3b 20 41 6c 73 6f 20 72 | 65 74 75 72 6e 73 20 74 |; Also r|eturns t|
|000010f0| 68 65 20 61 6d 6f 75 6e | 74 20 6f 66 20 62 79 74 |he amoun|t of byt|
|00001100| 65 73 20 61 63 74 75 61 | 6c 6c 79 20 72 65 61 64 |es actua|lly read|
|00001110| 2e 00 20 20 3b 00 20 20 | 73 6f 63 6b 72 65 61 64 |.. ;. |sockread|
|00001120| 2e 6c 3d 30 20 20 20 20 | 20 20 20 20 20 20 20 20 |.l=0 | |
|00001130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001140| 20 20 20 20 3b 43 6c 65 | 61 72 20 52 65 61 64 6d | ;Cle|ar Readm|
|00001150| 61 73 6b 00 20 20 73 6f | 63 6b 72 65 61 64 2e 6c |ask. so|ckread.l|
|00001160| 20 80 ce 20 73 6f 63 6b | 2e 6c 20 20 20 20 20 20 | .. sock|.l |
|00001170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 53 | | ;S|
|00001180| 65 74 20 52 65 61 64 6d | 61 73 6b 20 6f 6e 20 6f |et Readm|ask on o|
|00001190| 75 72 20 73 6f 63 6b 65 | 74 00 20 20 65 2e 6c 3d |ur socke|t. e.l=|
|000011a0| ec 8f 28 73 6f 63 6b 2e | 6c 2c 23 46 49 4f 4e 52 |..(sock.|l,#FIONR|
|000011b0| 45 41 44 2c 54 43 50 6d | 65 6d 2e 6c 29 20 3b 48 |EAD,TCPm|em.l) ;H|
|000011c0| 6f 77 20 6d 75 63 68 20 | 64 61 74 61 20 69 73 20 |ow much |data is |
|000011d0| 74 68 65 72 65 3f 00 20 | 20 66 2e 6c 3d da 02 2e |there?. | f.l=...|
|000011e0| 6c 28 54 43 50 6d 65 6d | 2e 6c 29 20 20 20 20 20 |l(TCPmem|.l) |
|000011f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001200| 20 20 20 3b 50 6c 61 63 | 65 20 76 61 6c 75 65 20 | ;Plac|e value |
|00001210| 69 6e 20 66 00 20 20 80 | 0b 20 66 3e 30 00 20 20 |in f. .|. f>0. |
|00001220| 20 20 80 0b 20 66 3e 23 | 54 43 50 42 75 66 6c 65 | .. f>#|TCPBufle|
|00001230| 6e 20 80 21 20 66 3d 23 | 54 43 50 42 75 66 6c 65 |n .! f=#|TCPBufle|
|00001240| 6e 20 20 20 20 20 20 20 | 20 20 3b 44 6f 6e 27 74 |n | ;Don't|
|00001250| 20 72 65 61 64 20 6d 6f | 72 65 20 74 68 61 6e 20 | read mo|re than |
|00001260| 23 54 43 50 42 75 66 6c | 65 6e 00 20 20 20 20 80 |#TCPBufl|en. .|
|00001270| 0b 20 66 3e 4d 61 78 53 | 69 7a 65 20 80 21 20 66 |. f>MaxS|ize .! f|
|00001280| 3d 4d 61 78 53 69 7a 65 | 20 20 20 20 20 20 20 20 |=MaxSize| |
|00001290| 20 20 20 20 20 20 20 3b | 44 6f 6e 27 74 20 72 65 | ;|Don't re|
|000012a0| 61 64 20 6d 6f 72 65 20 | 74 68 61 6e 20 4d 61 78 |ad more |than Max|
|000012b0| 53 69 7a 65 00 20 20 20 | 20 63 3d ec 89 28 73 6f |Size. | c=..(so|
|000012c0| 63 6b 2e 6c 2c 52 65 61 | 64 41 64 64 2e 6c 2c 66 |ck.l,Rea|dAdd.l,f|
|000012d0| 2c 30 29 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,0) | |
|000012e0| 3b 52 65 61 64 20 44 61 | 74 61 20 74 6f 20 52 65 |;Read Da|ta to Re|
|000012f0| 61 64 41 64 64 20 6c 6f | 63 61 74 69 6f 6e 00 20 |adAdd lo|cation. |
|00001300| 20 20 20 80 09 20 80 07 | 20 66 00 20 20 80 22 00 | .. ..| f. .".|
|00001310| 20 20 20 20 80 09 20 80 | 07 20 30 00 20 20 80 c0 | .. .|. 0. ..|
|00001320| 00 20 20 3b 00 80 02 20 | 80 09 00 00 00 00 2e 57 |. ;... |.......W|
|00001330| 72 69 74 65 4d 65 6d 54 | 43 50 00 80 08 20 57 72 |riteMemT|CP... Wr|
|00001340| 69 74 65 4d 65 6d 54 43 | 50 7b 61 64 2e 6c 2c 73 |iteMemTC|P{ad.l,s|
|00001350| 69 7a 65 2e 77 7d 00 20 | 20 80 15 20 73 6f 63 6b |ize.w}. | .. sock|
|00001360| 2e 6c 00 20 20 3b 00 20 | 20 3b 20 54 68 69 73 20 |.l. ;. | ; This |
|00001370| 72 6f 75 74 69 6e 65 20 | 77 72 69 74 65 73 20 64 |routine |writes d|
|00001380| 61 74 61 20 76 69 61 20 | 54 43 50 2e 00 20 20 3b |ata via |TCP.. ;|
|00001390| 00 20 20 73 6f 63 6b 77 | 72 69 74 65 2e 6c 3d 30 |. sockw|rite.l=0|
|000013a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000013b0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 43 6c 65 61 | | ;Clea|
|000013c0| 72 20 57 72 69 74 65 6d | 61 73 6b 00 20 20 73 6f |r Writem|ask. so|
|000013d0| 63 6b 77 72 69 74 65 2e | 6c 20 80 ce 20 73 6f 63 |ckwrite.|l .. soc|
|000013e0| 6b 2e 6c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |k.l | |
|000013f0| 20 20 3b 73 65 74 20 57 | 72 69 74 65 6d 61 73 6b | ;set W|ritemask|
|00001400| 20 6f 6e 20 6f 75 72 20 | 73 6f 63 6b 65 74 00 20 | on our |socket. |
|00001410| 20 67 2e 6c 3d ec 91 28 | 32 2c 30 2c 26 73 6f 63 | g.l=..(|2,0,&soc|
|00001420| 6b 77 72 69 74 65 2e 6c | 2c 30 2c 30 2c 30 29 20 |kwrite.l|,0,0,0) |
|00001430| 3b 57 61 69 74 20 75 6e | 74 69 6c 20 73 65 72 76 |;Wait un|til serv|
|00001440| 65 72 20 69 73 20 72 65 | 61 64 79 20 74 6f 20 72 |er is re|ady to r|
|00001450| 65 61 64 20 6f 75 72 20 | 64 61 74 61 00 20 20 63 |ead our |data. c|
|00001460| 2e 6c 3d ec 87 28 73 6f | 63 6b 2e 6c 2c 61 64 2c |.l=..(so|ck.l,ad,|
|00001470| 73 69 7a 65 2c 30 29 20 | 20 20 20 20 20 20 20 20 |size,0) | |
|00001480| 20 20 20 20 3b 53 65 6e | 64 20 64 61 74 61 20 74 | ;Sen|d data t|
|00001490| 6f 20 73 65 72 76 65 72 | 00 80 02 20 80 08 00 00 |o server|... ....|
|000014a0| 00 00 2e 43 6f 6e 6e 65 | 63 74 54 43 50 00 80 09 |...Conne|ctTCP...|
|000014b0| 20 2e 62 20 43 6f 6e 6e | 65 63 74 54 43 50 7b 68 | .b Conn|ectTCP{h|
|000014c0| 6f 73 74 24 2c 70 6f 72 | 74 2e 77 7d 00 20 20 80 |ost$,por|t.w}. .|
|000014d0| 15 20 73 6f 63 6b 2e 6c | 00 20 20 3b 00 20 20 3b |. sock.l|. ;. ;|
|000014e0| 20 43 68 65 63 6b 20 69 | 66 20 4d 69 61 6d 69 2f | Check i|f Miami/|
|000014f0| 41 6d 69 54 43 50 20 73 | 74 61 63 6b 20 69 73 20 |AmiTCP s|tack is |
|00001500| 61 76 61 69 6c 61 62 6c | 65 00 20 20 3b 20 43 6f |availabl|e. ; Co|
|00001510| 6e 6e 65 63 74 20 74 6f | 20 68 6f 73 74 20 61 74 |nnect to| host at|
|00001520| 20 73 70 65 63 69 66 69 | 65 64 20 70 6f 72 74 00 | specifi|ed port.|
|00001530| 20 20 3b 20 52 65 74 75 | 72 6e 20 74 72 75 65 20 | ; Retu|rn true |
|00001540| 6f 72 20 46 61 6c 73 65 | 20 69 66 20 43 6f 6e 6e |or False| if Conn|
|00001550| 65 63 74 69 6f 6e 20 69 | 73 20 6d 61 64 65 00 00 |ection i|s made..|
|00001560| 20 20 53 6f 63 6b 65 74 | 42 61 73 65 2e 6c 3d fe | Socket|Base.l=.|
|00001570| cf 28 22 62 73 64 73 6f | 63 6b 65 74 2e 6c 69 62 |.("bsdso|cket.lib|
|00001580| 72 61 72 79 22 2c 30 29 | 00 20 20 80 0b 20 53 6f |rary",0)|. .. So|
|00001590| 63 6b 65 74 42 61 73 65 | 3d 30 00 20 20 20 20 80 |cketBase|=0. .|
|000015a0| 09 20 80 07 20 bc 0f 00 | 20 20 80 22 00 20 20 20 |. .. ...| .". |
|000015b0| 20 fe bb 28 53 6f 63 6b | 65 74 42 61 73 65 29 00 | ..(Sock|etBase).|
|000015c0| 20 20 20 20 73 6f 63 6b | 2e 6c 3d ec 81 28 32 2c | sock|.l=..(2,|
|000015d0| 31 2c 30 29 00 20 20 20 | 20 2a 61 2e 68 6f 73 74 |1,0). | *a.host|
|000015e0| 65 6e 74 3d ec 9f 28 68 | 6f 73 74 24 29 00 20 20 |ent=..(h|ost$). |
|000015f0| 20 20 80 0b 20 2a 61 3d | 30 00 20 20 20 20 20 20 | .. *a=|0. |
|00001600| 80 09 20 80 07 20 bc 0f | 20 20 20 3b 20 68 6f 73 |.. .. ..| ; hos|
|00001610| 74 20 6e 6f 74 20 66 6f | 75 6e 64 20 28 6f 72 20 |t not fo|und (or |
|00001620| 69 6e 74 65 72 6e 61 6c | 20 54 43 50 20 65 72 72 |internal| TCP err|
|00001630| 6f 72 29 00 20 20 20 20 | 80 22 00 20 20 20 20 20 |or). |.". |
|00001640| 20 3b 00 20 20 20 20 20 | 20 3b 20 43 6f 70 79 20 | ;. | ; Copy |
|00001650| 44 65 74 61 69 6c 73 20 | 74 6f 20 6f 75 72 20 53 |Details |to our S|
|00001660| 6f 63 6b 61 64 64 72 69 | 6e 20 73 74 72 75 63 74 |ockaddri|n struct|
|00001670| 75 72 65 00 20 20 20 20 | 20 20 3b 00 20 20 20 20 |ure. | ;. |
|00001680| 20 20 fe db 20 2a 61 5c | 68 5f 61 64 64 72 5f 6c | .. *a\|h_addr_l|
|00001690| 69 73 74 5c 49 74 65 6d | 41 2c 26 68 6f 73 74 2e |ist\Item|A,&host.|
|000016a0| 73 6f 63 6b 61 64 64 72 | 69 6e 5c 73 69 6e 5f 61 |sockaddr|in\sin_a|
|000016b0| 64 64 72 2c 2a 61 5c 68 | 5f 6c 65 6e 67 68 74 00 |ddr,*a\h|_lenght.|
|000016c0| 20 20 20 20 20 20 68 6f | 73 74 2e 73 6f 63 6b 61 | ho|st.socka|
|000016d0| 64 64 72 69 6e 5c 73 69 | 6e 5f 70 6f 72 74 3d 70 |ddrin\si|n_port=p|
|000016e0| 6f 72 74 20 20 20 20 20 | 20 20 3b 53 65 74 20 70 |ort | ;Set p|
|000016f0| 6f 72 74 20 6e 75 6d 62 | 65 72 00 20 20 20 20 20 |ort numb|er. |
|00001700| 20 68 6f 73 74 2e 73 6f | 63 6b 61 64 64 72 69 6e | host.so|ckaddrin|
|00001710| 5c 73 69 6e 5f 66 61 6d | 69 6c 79 3d 32 20 20 20 |\sin_fam|ily=2 |
|00001720| 20 20 20 20 20 3b 53 65 | 74 20 74 79 70 65 20 74 | ;Se|t type t|
|00001730| 6f 20 41 54 5f 49 4e 45 | 54 00 20 20 20 20 20 20 |o AT_INE|T. |
|00001740| 53 74 72 75 63 74 4c 65 | 6e 67 74 68 2e 6c 3d 80 |StructLe|ngth.l=.|
|00001750| 2f 20 2e 73 6f 63 6b 61 | 64 64 72 69 6e 20 20 20 |/ .socka|ddrin |
|00001760| 3b 47 65 74 20 6c 65 6e | 67 68 74 20 6f 66 20 73 |;Get len|ght of s|
|00001770| 74 72 75 63 74 75 72 65 | 20 73 6f 63 6b 61 64 64 |tructure| sockadd|
|00001780| 72 69 6e 00 20 20 20 20 | 20 20 80 0b 20 ec 85 28 |rin. | .. ..(|
|00001790| 73 6f 63 6b 2e 6c 2c 68 | 6f 73 74 2e 73 6f 63 6b |sock.l,h|ost.sock|
|000017a0| 61 64 64 72 69 6e 2c 53 | 74 72 75 63 74 4c 65 6e |addrin,S|tructLen|
|000017b0| 67 74 68 29 3d 2d 31 00 | 20 20 20 20 20 20 20 20 |gth)=-1.| |
|000017c0| ec 90 28 73 6f 63 6b 2e | 6c 29 00 20 20 20 20 20 |..(sock.|l). |
|000017d0| 20 20 20 80 09 20 80 07 | 20 bc 0f 00 20 20 20 20 | .. ..| ... |
|000017e0| 20 20 80 22 00 20 20 20 | 20 20 20 20 20 80 09 20 | .". | .. |
|000017f0| 80 07 20 bc 0e 00 20 20 | 20 20 20 20 80 c0 00 20 |.. ... | ... |
|00001800| 20 20 20 80 c0 00 20 20 | 80 c0 00 80 02 20 80 09 | ... |..... ..|
|00001810| 00 00 00 00 2e 50 72 69 | 6e 74 54 43 50 00 80 08 |.....Pri|ntTCP...|
|00001820| 20 50 72 69 6e 74 54 43 | 50 7b 74 65 78 74 24 7d | PrintTC|P{text$}|
|00001830| 00 20 20 3b 00 20 20 3b | 20 53 65 6e 64 20 53 74 |. ;. ;| Send St|
|00001840| 72 69 6e 67 20 76 69 61 | 20 54 43 50 00 20 20 3b |ring via| TCP. ;|
|00001850| 00 20 20 57 72 69 74 65 | 4d 65 6d 54 43 50 7b 26 |. Write|MemTCP{&|
|00001860| 74 65 78 74 24 2c dc 8f | 28 74 65 78 74 24 29 7d |text$,..|(text$)}|
|00001870| 00 80 02 20 80 08 00 00 | 00 00 2e 4e 50 72 69 6e |... ....|...NPrin|
|00001880| 74 54 43 50 00 80 08 20 | 4e 50 72 69 6e 74 54 43 |tTCP... |NPrintTC|
|00001890| 50 7b 74 65 78 74 24 7d | 00 20 20 3b 00 20 20 3b |P{text$}|. ;. ;|
|000018a0| 20 53 65 6e 64 20 53 74 | 72 69 6e 67 20 76 69 61 | Send St|ring via|
|000018b0| 20 54 43 50 20 2b 20 43 | 61 72 72 61 67 65 20 52 | TCP + C|arrage R|
|000018c0| 65 74 75 72 6e 00 20 20 | 3b 00 20 20 74 65 78 74 |eturn. |;. text|
|000018d0| 24 3d 74 65 78 74 24 2b | dc 86 28 31 33 29 00 20 |$=text$+|..(13). |
|000018e0| 20 57 72 69 74 65 4d 65 | 6d 54 43 50 7b 26 74 65 | WriteMe|mTCP{&te|
|000018f0| 78 74 24 2c dc 8f 28 74 | 65 78 74 24 29 7d 00 80 |xt$,..(t|ext$)}..|
|00001900| 02 20 80 08 00 00 00 00 | 2e 4e 4c 50 72 69 6e 74 |. ......|.NLPrint|
|00001910| 54 43 50 00 80 08 20 4e | 4c 50 72 69 6e 74 54 43 |TCP... N|LPrintTC|
|00001920| 50 7b 74 65 78 74 24 7d | 00 20 20 3b 00 20 20 3b |P{text$}|. ;. ;|
|00001930| 20 53 65 6e 64 20 53 74 | 72 69 6e 67 20 76 69 61 | Send St|ring via|
|00001940| 20 54 43 50 20 2b 20 43 | 61 72 72 61 67 65 20 52 | TCP + C|arrage R|
|00001950| 65 74 75 72 6e 20 2b 20 | 4c 69 6e 65 20 46 65 65 |eturn + |Line Fee|
|00001960| 64 00 20 20 3b 00 20 20 | 74 65 78 74 24 3d 74 65 |d. ;. |text$=te|
|00001970| 78 74 24 2b dc 86 28 31 | 33 29 2b dc 86 28 31 30 |xt$+..(1|3)+..(10|
|00001980| 29 00 20 20 57 72 69 74 | 65 4d 65 6d 54 43 50 7b |). Writ|eMemTCP{|
|00001990| 26 74 65 78 74 24 2c dc | 8f 28 74 65 78 74 24 29 |&text$,.|.(text$)|
|000019a0| 7d 00 80 02 20 80 08 00 | 00 00 00 2e 43 6c 6f 73 |}... ...|....Clos|
|000019b0| 65 54 43 50 00 80 08 20 | 43 6c 6f 73 65 54 43 50 |eTCP... |CloseTCP|
|000019c0| 7b 7d 00 20 20 80 15 20 | 73 6f 63 6b 2e 6c 00 20 |{}. .. |sock.l. |
|000019d0| 20 3b 00 20 20 3b 20 54 | 68 69 73 20 69 73 20 61 | ;. ; T|his is a|
|000019e0| 20 73 69 6d 70 6c 65 20 | 63 6c 6f 73 65 20 73 6f | simple |close so|
|000019f0| 63 6b 65 74 20 63 6f 6d | 6d 61 6e 64 00 20 20 3b |cket com|mand. ;|
|00001a00| 20 50 72 6f 76 69 64 65 | 64 20 66 6f 72 20 74 68 | Provide|d for th|
|00001a10| 65 20 73 68 65 61 72 20 | 68 65 6c 6c 20 6f 66 20 |e shear |hell of |
|00001a20| 69 74 20 3a 29 00 20 20 | 3b 00 20 20 ec 90 28 73 |it :). |;. ..(s|
|00001a30| 6f 63 6b 2e 6c 29 00 80 | 02 20 80 08 00 00 3b 2d |ock.l)..|. ....;-|
|00001a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a50| 2d 2d 2d 2d 2d 2d 2d 2d | 00 3b 45 6e 64 20 6f 66 |--------|.;End of|
|00001a60| 20 54 43 50 20 52 6f 75 | 74 69 6e 65 73 00 3b 2d | TCP Rou|tines.;-|
|00001a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a80| 2d 2d 2d 2d 2d 2d 2d 2d | 00 00 00 00 2e 45 63 68 |--------|.....Ech|
|00001a90| 6f 54 43 50 00 80 08 20 | 45 63 68 6f 54 43 50 7b |oTCP... |EchoTCP{|
|00001aa0| 7d 00 20 20 80 15 20 73 | 6f 63 6b 2e 6c 2c 54 43 |}. .. s|ock.l,TC|
|00001ab0| 50 6d 65 6d 2e 6c 00 20 | 20 3b 00 20 20 3b 20 54 |Pmem.l. | ;. ; T|
|00001ac0| 68 69 73 20 46 75 6e 63 | 74 69 6f 6e 20 72 65 61 |his Func|tion rea|
|00001ad0| 64 73 20 64 61 74 61 20 | 66 72 6f 6d 20 74 68 65 |ds data |from the|
|00001ae0| 20 73 65 72 76 65 72 20 | 74 68 65 20 72 65 73 75 | server |the resu|
|00001af0| 6c 74 20 69 73 20 70 61 | 73 73 65 64 20 62 61 63 |lt is pa|ssed bac|
|00001b00| 6b 20 69 6e 20 61 00 20 | 20 3b 20 73 74 72 69 6e |k in a. | ; strin|
|00001b10| 67 2e 20 49 66 20 74 68 | 65 72 65 20 69 73 20 6e |g. If th|ere is n|
|00001b20| 6f 20 6d 65 73 73 61 67 | 65 73 20 74 68 65 6e 20 |o messag|es then |
|00001b30| 69 74 20 77 69 6c 6c 20 | 72 65 74 75 72 6e 20 61 |it will |return a|
|00001b40| 6e 20 65 6d 70 74 79 20 | 73 74 72 69 6e 67 20 3d |n empty |string =|
|00001b50| 22 22 00 20 20 3b 00 20 | 20 fe 1b 28 32 30 29 00 |"". ;. | ..(20).|
|00001b60| 20 20 73 6f 63 6b 72 65 | 61 64 2e 6c 3d 30 20 20 | sockre|ad.l=0 |
|00001b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 43 | | ;C|
|00001b90| 6c 65 61 72 20 52 65 61 | 64 6d 61 73 6b 00 20 20 |lear Rea|dmask. |
|00001ba0| 73 6f 63 6b 72 65 61 64 | 2e 6c 20 80 ce 20 73 6f |sockread|.l .. so|
|00001bb0| 63 6b 2e 6c 20 20 20 20 | 20 20 20 20 20 20 20 20 |ck.l | |
|00001bc0| 20 20 20 20 20 20 20 20 | 3b 53 65 74 20 52 65 61 | |;Set Rea|
|00001bd0| 64 6d 61 73 6b 20 6f 6e | 20 6f 75 72 20 73 6f 63 |dmask on| our soc|
|00001be0| 6b 65 74 00 20 20 65 2e | 6c 3d ec 8f 28 73 6f 63 |ket. e.|l=..(soc|
|00001bf0| 6b 2e 6c 2c 23 46 49 4f | 4e 52 45 41 44 2c 54 43 |k.l,#FIO|NREAD,TC|
|00001c00| 50 6d 65 6d 2e 6c 29 20 | 3b 48 6f 77 20 6d 75 63 |Pmem.l) |;How muc|
|00001c10| 68 20 64 61 74 61 20 69 | 73 20 74 68 65 72 65 3f |h data i|s there?|
|00001c20| 00 20 20 66 2e 6c 3d da | 02 2e 6c 28 54 43 50 6d |. f.l=.|..l(TCPm|
|00001c30| 65 6d 2e 6c 29 20 20 20 | 20 20 20 20 20 20 20 20 |em.l) | |
|00001c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 50 6c | | ;Pl|
|00001c50| 61 63 65 20 76 61 6c 75 | 65 20 69 6e 20 66 00 20 |ace valu|e in f. |
|00001c60| 20 80 0b 20 66 3e 30 00 | 20 20 20 20 80 0b 20 66 | .. f>0.| .. f|
|00001c70| 3e 23 54 43 50 42 75 66 | 6c 65 6e 20 80 21 20 66 |>#TCPBuf|len .! f|
|00001c80| 3d 23 54 43 50 42 75 66 | 6c 65 6e 20 20 20 20 20 |=#TCPBuf|len |
|00001c90| 20 20 20 20 3b 44 6f 6e | 27 74 20 72 65 61 64 20 | ;Don|'t read |
|00001ca0| 6d 6f 72 65 20 74 68 61 | 6e 20 23 54 43 50 42 75 |more tha|n #TCPBu|
|00001cb0| 66 6c 65 6e 00 20 20 20 | 20 63 3d ec 89 28 73 6f |flen. | c=..(so|
|00001cc0| 63 6b 2e 6c 2c 54 43 50 | 6d 65 6d 2e 6c 2c 66 2c |ck.l,TCP|mem.l,f,|
|00001cd0| 30 29 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0) | |
|00001ce0| 3b 52 65 61 64 20 61 6c | 6c 20 44 61 74 61 00 20 |;Read al|l Data. |
|00001cf0| 20 20 20 63 24 3d dc 88 | 28 22 20 22 2c 66 29 20 | c$=..|(" ",f) |
|00001d00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001d10| 20 20 20 20 20 20 20 20 | 3b 52 65 73 65 72 76 65 | |;Reserve|
|00001d20| 20 53 74 72 69 6e 67 00 | 20 20 20 20 fe db 20 54 | String.| .. T|
|00001d30| 43 50 6d 65 6d 2e 6c 2c | 26 63 24 2c 66 20 20 20 |CPmem.l,|&c$,f |
|00001d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001d50| 3b 43 6f 70 79 20 44 61 | 74 61 20 74 6f 20 73 74 |;Copy Da|ta to st|
|00001d60| 72 69 6e 67 00 20 20 20 | 20 80 03 20 63 24 3d 63 |ring. | .. c$=c|
|00001d70| 24 2b 6c 6e 24 00 20 20 | 20 20 80 03 20 76 6f 69 |$+ln$. | .. voi|
|00001d80| 64 3d fc 95 28 26 63 24 | 29 00 20 20 80 22 00 20 |d=..(&c$|). .". |
|00001d90| 20 20 20 80 03 20 63 24 | 3d 63 24 2b 6c 6e 24 00 | .. c$|=c$+ln$.|
|00001da0| 20 20 20 20 80 03 20 76 | 6f 69 64 3d fc 95 28 26 | .. v|oid=..(&|
|00001db0| 63 24 29 00 20 20 80 c0 | 00 80 02 20 80 08 00 00 |c$). ..|... ....|
|00001dc0| 00 00 80 09 20 2e 73 20 | 69 6e 70 75 74 7b 70 72 |.... .s |input{pr|
|00001dd0| 6f 6d 70 74 24 7d 00 20 | 20 3b 00 20 20 3b 20 53 |ompt$}. | ;. ; S|
|00001de0| 69 6d 70 6c 65 20 22 6f | 6c 64 20 73 74 79 6c 65 |imple "o|ld style|
|00001df0| 22 20 69 6e 70 75 74 20 | 66 75 6e 63 74 69 6f 6e |" input |function|
|00001e00| 00 20 20 3b 20 54 68 69 | 73 20 66 75 6e 63 74 69 |. ; Thi|s functi|
|00001e10| 6f 6e 20 69 73 20 6e 6f | 74 20 6c 69 6e 6b 65 64 |on is no|t linked|
|00001e20| 20 74 6f 20 54 43 50 20 | 63 6f 64 69 6e 67 00 20 | to TCP |coding. |
|00001e30| 20 3b 00 20 20 dd 81 20 | 70 72 6f 6d 70 74 24 2b | ;. .. |prompt$+|
|00001e40| 22 3a 20 22 00 20 20 74 | 65 78 74 24 3d dd 01 28 |": ". t|ext$=..(|
|00001e50| 34 30 29 00 20 20 80 09 | 20 80 07 20 74 65 78 74 |40). ..| .. text|
|00001e60| 24 00 80 02 20 80 09 00 | 00 00 80 09 20 2e 73 20 |$... ...|.... .s |
|00001e70| 73 74 72 69 70 74 65 78 | 74 7b 74 65 78 74 24 7d |striptex|t{text$}|
|00001e80| 00 20 20 3b 00 20 20 3b | 20 53 69 6d 70 6c 65 20 |. ;. ;| Simple |
|00001e90| 66 75 6e 63 74 69 6f 6e | 20 74 6f 20 73 74 72 69 |function| to stri|
|00001ea0| 70 20 43 61 72 72 61 67 | 65 20 52 65 74 75 72 6e |p Carrag|e Return|
|00001eb0| 73 00 20 20 3b 20 61 6e | 64 20 4c 69 6e 65 20 46 |s. ; an|d Line F|
|00001ec0| 65 65 64 73 20 66 72 6f | 6d 20 74 65 78 74 2e 00 |eeds fro|m text..|
|00001ed0| 20 20 3b 00 20 20 63 24 | 3d 22 22 00 20 20 80 16 | ;. c$|="". ..|
|00001ee0| 20 61 3d 31 20 80 18 20 | dc 8f 28 74 65 78 74 24 | a=1 .. |..(text$|
|00001ef0| 29 00 20 20 20 20 6c 24 | 3d dc 83 28 74 65 78 74 |). l$|=..(text|
|00001f00| 24 2c 61 2c 31 29 00 20 | 20 20 20 80 0b 20 6c 24 |$,a,1). | .. l$|
|00001f10| 3c 3e dc 86 28 31 30 29 | 20 80 42 20 6c 24 3c 3e |<>..(10)| .B l$<>|
|00001f20| dc 86 28 31 33 29 00 20 | 20 20 20 20 20 63 24 3d |..(13). | c$=|
|00001f30| 63 24 2b 6c 24 00 20 20 | 20 20 80 c0 00 20 20 80 |c$+l$. | ... .|
|00001f40| 17 20 61 00 20 20 80 09 | 20 80 07 20 63 24 00 80 |. a. ..| .. c$..|
|00001f50| 02 20 80 09 00 00 00 3b | 2d 2d 2d 2d 2d 2d 2d 2d |. .....;|--------|
|00001f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 3b 00 3b 20 54 68 |--------|--;.; Th|
|00001f80| 65 20 6d 61 69 6e 20 70 | 61 72 74 20 6f 66 20 74 |e main p|art of t|
|00001f90| 68 69 73 20 64 65 6d 6f | 20 63 6f 64 65 20 20 3b |his demo| code ;|
|00001fa0| 00 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.;------|--------|
|00001fb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001fc0| 2d 2d 2d 2d 3b 00 00 00 | 3b 49 66 20 43 68 65 63 |----;...|;If Chec|
|00001fd0| 6b 54 43 50 7b 7d 00 3b | 20 20 68 6f 73 74 24 3d |kTCP{}.;| host$=|
|00001fe0| 22 77 77 77 2e 66 72 65 | 65 73 75 72 66 2e 66 72 |"www.fre|esurf.fr|
|00001ff0| 22 00 3b 20 20 68 6f 73 | 74 24 3d 22 77 77 77 2e |".; hos|t$="www.|
|00002000| 6d 65 6e 64 65 6c 75 2e | 63 7a 22 00 3b 20 20 68 |mendelu.|cz".; h|
|00002010| 6f 73 74 24 3d 22 77 77 | 77 2e 69 61 66 72 69 63 |ost$="ww|w.iafric|
|00002020| 61 2e 63 6f 6d 22 00 3b | 20 20 70 6f 72 74 3d 32 |a.com".;| port=2|
|00002030| 35 00 00 80 bb 00 20 20 | 20 80 1b 20 70 6f 72 74 |5..... | .. port|
|00002040| 73 74 72 24 2c 70 6f 72 | 74 74 65 78 74 24 00 20 |str$,por|ttext$. |
|00002050| 20 20 70 6f 72 74 2e 77 | 3d bc 01 28 70 6f 72 74 | port.w|=..(port|
|00002060| 73 74 72 24 29 00 00 20 | 20 20 80 0b 20 70 6f 72 |str$).. | .. por|
|00002070| 74 74 65 78 74 24 20 3c | 3e 22 45 6e 64 22 00 20 |ttext$ <|>"End". |
|00002080| 20 20 20 20 20 80 06 20 | 43 68 65 63 6b 50 6f 72 | .. |CheckPor|
|00002090| 74 00 20 20 20 80 22 00 | 20 20 20 20 20 20 80 03 |t. .".| ..|
|000020a0| 20 6d 66 6c 61 67 3d bc | 0e 00 20 20 20 80 c0 00 | mflag=.|.. ...|
|000020b0| 80 bc 20 6d 66 6c 61 67 | 3d bc 0e 00 00 00 00 3b |.. mflag|=......;|
|000020c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 54 68 65 |--------|---- The|
|000020d0| 20 45 6e 64 20 2d 2d 2d | 2d 2d 2d 3e 00 80 02 00 | End ---|--->....|
|000020e0| 00 00 2e 43 68 65 63 6b | 50 6f 72 74 00 00 00 80 |...Check|Port....|
|000020f0| 0b 20 43 6f 6e 6e 65 63 | 74 54 43 50 7b 68 6f 73 |. Connec|tTCP{hos|
|00002100| 74 24 2c 70 6f 72 74 2e | 77 7d 00 20 20 20 20 20 |t$,port.|w}. |
|00002110| 20 45 63 68 6f 20 7b 22 | 43 68 65 63 6b 69 6e 67 | Echo {"|Checking|
|00002120| 20 22 2b 70 6f 72 74 74 | 65 78 74 24 7d 00 20 20 | "+portt|ext$}. |
|00002130| 20 20 20 20 fe 1b 28 32 | 30 30 29 20 20 20 20 20 | ..(2|00) |
|00002140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002150| 20 3b 20 47 69 76 65 20 | 73 65 72 76 65 72 20 61 | ; Give |server a|
|00002160| 20 6c 69 74 74 6c 65 20 | 54 69 6d 65 00 20 20 20 | little |Time. |
|00002170| 20 20 20 45 63 68 6f 54 | 43 50 7b 7d 20 20 20 20 | EchoT|CP{} |
|00002180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002190| 20 20 20 20 3b 20 47 65 | 74 20 61 6e 79 20 53 65 | ; Ge|t any Se|
|000021a0| 72 76 65 72 73 20 6d 65 | 73 73 61 67 65 73 00 00 |rvers me|ssages..|
|000021b0| 20 20 20 20 20 20 73 65 | 6e 64 24 3d 22 51 55 49 | se|nd$="QUI|
|000021c0| 54 22 2b 63 66 24 00 20 | 20 20 20 20 20 57 72 69 |T"+cf$. | Wri|
|000021d0| 74 65 4d 65 6d 54 43 50 | 7b 26 73 65 6e 64 24 2c |teMemTCP|{&send$,|
|000021e0| dc 8f 28 73 65 6e 64 24 | 29 7d 20 20 20 3b 20 73 |..(send$|)} ; s|
|000021f0| 65 6e 64 20 74 65 78 74 | 20 74 6f 20 73 65 72 76 |end text| to serv|
|00002200| 65 72 00 3b 20 20 20 20 | 20 20 20 45 63 68 6f 54 |er.; | EchoT|
|00002210| 43 50 7b 7d 00 00 20 20 | 20 20 43 6c 6f 73 65 54 |CP{}.. | CloseT|
|00002220| 43 50 7b 7d 00 3b 20 20 | 20 20 45 63 68 6f 7b 22 |CP{}.; | Echo{"|
|00002230| 43 6f 6e 6e 65 63 74 69 | 6f 6e 20 43 6c 6f 73 65 |Connecti|on Close|
|00002240| 64 2e 22 7d 00 80 22 00 | 20 20 20 20 45 63 68 6f |d."}..".| Echo|
|00002250| 54 43 50 7b 7d 20 20 20 | 20 20 20 20 20 20 20 20 |TCP{} | |
|00002260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 47 | | ; G|
|00002270| 65 74 20 61 6e 79 20 53 | 65 72 76 65 72 73 20 6d |et any S|ervers m|
|00002280| 65 73 73 61 67 65 73 00 | 3b 20 20 20 20 45 63 68 |essages.|; Ech|
|00002290| 6f 20 7b 22 43 61 6e 27 | 74 20 63 6f 6e 6e 65 63 |o {"Can'|t connec|
|000022a0| 74 20 74 6f 20 48 6f 73 | 74 2e 22 7d 00 3b 20 20 |t to Hos|t."}.; |
|000022b0| 20 20 4c 65 74 20 6d 66 | 6c 61 67 3d 54 72 75 65 | Let mf|lag=True|
|000022c0| 00 80 c0 00 00 80 07 00 | 00 00 00 00 80 1a 24 20 |........|......$ |
|000022d0| 22 31 33 22 2c 22 44 61 | 79 74 69 6d 65 20 53 65 |"13","Da|ytime Se|
|000022e0| 72 76 69 63 65 22 00 80 | 1a 24 20 22 32 31 22 2c |rvice"..|.$ "21",|
|000022f0| 22 46 54 50 20 53 65 72 | 76 69 63 65 22 00 80 1a |"FTP Ser|vice"...|
|00002300| 24 20 22 32 35 22 2c 22 | 53 4d 54 50 20 53 65 72 |$ "25","|SMTP Ser|
|00002310| 76 69 63 65 22 00 80 1a | 24 20 22 34 33 22 2c 22 |vice"...|$ "43","|
|00002320| 57 68 6f 69 73 20 53 65 | 72 76 69 63 65 22 00 80 |Whois Se|rvice"..|
|00002330| 1a 24 20 22 35 33 22 2c | 22 44 4e 53 20 53 65 72 |.$ "53",|"DNS Ser|
|00002340| 76 69 63 65 22 00 80 1a | 24 20 22 37 39 22 2c 22 |vice"...|$ "79","|
|00002350| 46 69 6e 67 65 72 20 53 | 65 72 76 69 63 65 22 00 |Finger S|ervice".|
|00002360| 80 1a 24 20 22 38 30 22 | 2c 22 48 54 54 50 20 53 |..$ "80"|,"HTTP S|
|00002370| 65 72 76 69 63 65 22 00 | 80 1a 24 20 22 31 31 30 |ervice".|..$ "110|
|00002380| 22 2c 22 50 4f 50 33 20 | 53 65 72 76 69 63 65 22 |","POP3 |Service"|
|00002390| 00 80 1a 24 20 22 31 31 | 33 22 2c 22 41 55 54 48 |...$ "11|3","AUTH|
|000023a0| 20 53 65 72 76 69 63 65 | 22 00 80 1a 24 20 22 31 | Service|"...$ "1|
|000023b0| 31 39 22 2c 22 4e 4e 54 | 50 20 53 65 72 76 69 63 |19","NNT|P Servic|
|000023c0| 65 22 00 80 1a 24 20 22 | 31 33 39 22 2c 22 4e 65 |e"...$ "|139","Ne|
|000023d0| 74 42 69 6f 73 20 53 65 | 72 76 69 63 65 22 00 80 |tBios Se|rvice"..|
|000023e0| 1a 24 20 22 35 31 33 22 | 2c 22 52 4c 6f 67 69 6e |.$ "513"|,"RLogin|
|000023f0| 20 53 65 72 76 69 63 65 | 22 00 80 1a 24 20 22 35 | Service|"...$ "5|
|00002400| 31 34 22 2c 22 52 53 68 | 65 6c 6c 20 53 65 72 76 |14","RSh|ell Serv|
|00002410| 69 63 65 22 00 80 1a 24 | 20 22 35 34 30 22 2c 22 |ice"...$| "540","|
|00002420| 55 55 43 50 20 53 65 72 | 76 69 63 65 22 00 80 1a |UUCP Ser|vice"...|
|00002430| 24 20 22 36 36 36 37 22 | 2c 22 49 52 43 20 53 65 |$ "6667"|,"IRC Se|
|00002440| 72 76 69 63 65 22 00 80 | 1a 24 20 22 2d 31 22 2c |rvice"..|.$ "-1",|
|00002450| 22 45 6e 64 22 00 80 1a | 24 20 22 32 33 22 2c 22 |"End"...|$ "23","|
|00002460| 54 65 6c 6e 65 74 20 53 | 65 72 76 69 63 65 22 00 |Telnet S|ervice".|
|00002470| 00 | |. | |
+--------+-------------------------+-------------------------+--------+--------+
